home *** CD-ROM | disk | FTP | other *** search
- object Main: TMain
- Left = 297
- Top = 107
- BorderStyle = bsSingle
- Caption = 'WHAT DAY ?'
- ClientHeight = 350
- ClientWidth = 261
- Color = clWhite
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 18
- object ImageBK: TImage
- Left = 0
- Top = 0
- Width = 261
- Height = 350
- Align = alClient
- end
- object ImgMonth: TImage
- Left = 17
- Top = 5
- Width = 135
- Height = 38
- end
- object ImgWeek: TImage
- Left = 173
- Top = 73
- Width = 54
- Height = 17
- end
- object ImgDate: TImage
- Left = 72
- Top = 56
- Width = 57
- Height = 33
- end
- object ImgPrev: TImage
- Left = 16
- Top = 56
- Width = 20
- Height = 20
- OnClick = ImgPrevClick
- end
- object ImgNext: TImage
- Left = 40
- Top = 56
- Width = 20
- Height = 20
- OnClick = ImgNextClick
- end
- object FileList: TFileListBox
- Left = 160
- Top = 8
- Width = 33
- Height = 33
- ItemHeight = 18
- Mask = '*.jpg'
- MultiSelect = True
- TabOrder = 0
- Visible = False
- end
- object ImgNeko: TImgKitDisp
- Left = 32
- Top = 104
- Width = 150
- Height = 150
- TabOrder = 1
- ControlData = {00000100810F0000810F000001000000FFFFFF00FFFF0000}
- end
- object ImgKitFile1: TImgKitFile
- Left = 200
- Top = 8
- Width = 32
- Height = 32
- ControlData = {
- 000001004F0300004F03000000000000FFFF0000000000000000000000005400}
- end
- object MediaPlayer1: TMediaPlayer
- Left = 200
- Top = 40
- Width = 57
- Height = 30
- VisibleButtons = [btPlay, btStop]
- DeviceType = dtWaveAudio
- Visible = False
- TabOrder = 3
- OnNotify = MediaPlayer1Notify
- end
- object AviNeko: TImgKitDisp
- Left = 32
- Top = 104
- Width = 204
- Height = 150
- TabOrder = 4
- ControlData = {0000010016150000810F000001000000FFFFFF00FFFF0000}
- end
- object MainMenu1: TMainMenu
- Left = 232
- Top = 8
- object KF1: TMenuItem
- Caption = 'ïソスtïソス@ïソスCïソスïソス(&F)'
- ShortCut = 0
- object KX1: TMenuItem
- Caption = 'ïソスIïソスïソス(&X)'
- ShortCut = 0
- OnClick = KX1Click
- end
- end
- object K1: TMenuItem
- Caption = 'ïソスン抵ソス(&O)'
- ShortCut = 0
- object K2: TMenuItem
- Caption = 'ïソスツ具ソスïソスン抵ソス'
- ShortCut = 0
- OnClick = K2Click
- end
- object K3: TMenuItem
- Caption = 'ïソスïソスïソスïソスïソスwïソスïソス'
- ShortCut = 0
- OnClick = K3Click
- end
- object N1: TMenuItem
- Caption = 'ïソスïソスïソスCïソスAïソスEïソスg'
- ShortCut = 0
- OnClick = N1Click
- end
- object K4: TMenuItem
- Caption = 'ïソス鞫懶ソスoïソス^'
- ShortCut = 0
- OnClick = K4Click
- end
- end
- object KH1: TMenuItem
- Caption = 'ïソスwïソスïソスïソスv(&H)'
- ShortCut = 0
- object KC1: TMenuItem
- Caption = 'ïソスレ趣ソス(&C)'
- ShortCut = 0
- OnClick = KC1Click
- end
- object KA1: TMenuItem
- Caption = 'ïソスoïソス[ïソスWïソスïソスïソスïソスïソスïソスïソス(&A)...'
- ShortCut = 0
- OnClick = KA1Click
- end
- end
- end
- end
-